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BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i onet i eget WITH THE TERMS OF SUCH peter AND WITH THE 


ie TRANSFERRED. 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
te aeRPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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} FACILITY: Utility Library 

ABSTRACT: 

i LIBSDEC_OVER enables or disables decimal overflow 

7 ! for the” cot} tee procedure activation. The previous setting 
3 of the enable is returned as a value. 
rt 8 ENVIRONMENT: User mode, re-entrant, AST level or not or mixed. 
4 04g AUTHOR: Thomas N. Hastings CREATION DATE: 8-Oct-77 
4 O44 MODIFIED BY: 
4 046 i Thomas N. Hastings, 8-Oct-77: VERSION 0 
4 04 ! 01 rigioe al 
4 8 ! Q- = REQUIRE LPSECT. TNH 19-Dec-77 
4 049 ! 0-03 = Change to STARLET library. DGP onAor-78 
5 Boat ! 0-04 = Change proper stack frame. TNH 21-Apr-7 
5 051 ! 0-05 = Change REQUIRE files for VAX system build. DGP 28-Apr-78 
5 03g ! Q- $ - Change STARLET to RTLSTARLE to i iets, Dep” 11-May-78 
: 05 ! 0-07 = Change file name to LIBDECOVE.B and q change the name of 
b2e ' the REQUIR f file similarly. 8 

5 55 ! 1-001 = Update version saber ong copyr 9 be yer JBS 16-NOV-78 
: B39 1-002 - Use prologue file. SBL 24-June-19 
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cnitetosta ante overtion re EIR HENS BGI ACHE TAL, 


-Sep-1 
GLOBAL ROUTINE LIBSDEC_OVER ( ! Enable/disable decimal oyert lew 
NEW_ SETTING) ! Adr. of Longwore containing new setting 
= ! Value is old setting 
++ 
FUNCTIONAL DESCRIPTION: 
LIBSDEC_OVER enables or disables decimal overflow 
for the calling procedure activation. The previous setting 
of the enable is returned as a value. 
! FORMAL PARAMETERS: 


new_setting.rlu.r "* of er containing new enable setting. 


0 s enable, bit 0 = 0 is disable. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 


OLD_SETTING.wlu.v previous contents of SRM$W_PSW(PSWS$V_DV} 
in the callers frame. 


COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
The callers stack frame will be modified. 


BEGIN 
OCAL 
OLD_SETTING; ! store the old SETTING of decimal overflow enabie 
BUILTIN 
FP; 
NEW_SETTING: REF VECTORC1, LONG], ! Scalar call-by-reference 
FP: REF BLOCK(C,BYTE); 
OLD SETTING = .FPCSF$V_ DV): 
FPCSF$V_DV) = .NEW SETTINGLO); 
RETURN [OLD_SETTING; 
END; ‘End of LIBSDEC_OVER 


-TITLE LIBSDEC_OVER Enable/disable decimal overflow tr 


IDENT \1-002\ 


H 

LIBSDEC_OVER Enable/disable decimal overflow traps 16 
1-002 14 
0000 00000 

50 04 AE 01 07 EF 00002 

04 AE 01 07 04 BC FO 00008 

04 0000F 


; Routine Size: 16 bytes, Routine Base: _LIBSCODE + 0000 


»PSECT 


- ENTRY 
EXTZV 
INSV 
RET 


agp Bliss-32 V4.0-74 
LIBRTL.SRCILIBDECOVE .832;1 


_LIBSCODE,NOWRT, SHR, PIC,2 


LIBSDEC_OVER, Save nothin 
, #1, °4CFPS, OLD SETTIN 
@NEW_SETTING, #7, #1, 4(FP) 
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3 «(144 1 1 END ‘End of module 
3 6145 8333 0 ELUDOM 
H PSECT SUMMARY 
Z Name Bytes Attributes 
; _LIBSCODE 16 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ite oo ee ee = Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:00.7 
; ~$255$0UA28:CLIBRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL .OPTIMIZE) /NOTRACE/LIS=LIS$:L 1BDECOVE/0BJ=08)$:LIBDECOVE MSRC$:LIBDECOVE/UPDATE=(ENH$:LIBDECOVE 
Size: 16 code + 0 data bytes 
Run Time: 0:02.1 
Elapsed Time 


:13. 

Lines/CPU Min: 6144 
may A ae 9913 
oaeey Used: 30 pages 
Compilation Complete 
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